home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fontedit.arc / 50LINS.BAS next >
BASIC Source File  |  1984-08-04  |  256b  |  14 lines
  1. 10 SCREEN 0,0
  2. 20 WIDTH 80
  3. 30 CLS
  4. 40 OUT &H3D0,8: OUT &H3D1,3
  5. 50 PRINT TAB(21);"Interlaced Text"
  6. 60 DEF SEG = &HB800
  7. 70 FOR I = 3 TO 49
  8. 80  FOR J = 0 TO 79
  9. 90   POKE 160 * I + 2 * J,65
  10. 100 NEXT J
  11. 110 NEXT I
  12. ced Text"
  13. 60 DEF SEG = &HB800
  14. 70 FOR